Dim conex As New ADODB.Connection
Dim conacc As New ADODB.Connection
Dim recex As New ADODB.Recordset
Dim recacc As New ADODB.Recordset



Private Sub CommandButton1_Click()
conex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\vb_data.xls;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';Persist Security Info=False"
recex.Open "select * from tabl1", conex, adOpenStatic, adLockReadOnly

conacc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\datatest.mdb"
recacc.Open "select * from data1", conacc, adOpenDynamic, adLockOptimistic


For i = 1 To recex.RecordCount



recacc.AddNew
recacc![ID] = recex![ID]
recacc![Name] = recex![Name]
recacc![age] = recex![age]
recacc.Update

recex.MoveNext




Next i

conacc.Close
Set conacc = Nothing


conex.Close
Set conex = Nothing

End Sub